home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / tsca / gradtest.frm < prev    next >
Text File  |  1995-05-08  |  2KB  |  92 lines
  1. VERSION 2.00
  2. Begin Form Gradtest 
  3.    Caption         =   "Scroll Test"
  4.    ClientHeight    =   4020
  5.    ClientLeft      =   1425
  6.    ClientTop       =   1485
  7.    ClientWidth     =   7575
  8.    Height          =   4425
  9.    Left            =   1365
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   4020
  12.    ScaleWidth      =   7575
  13.    Top             =   1140
  14.    Width           =   7695
  15.    Begin PictureBox Picture3 
  16.       Height          =   855
  17.       Left            =   1200
  18.       ScaleHeight     =   55
  19.       ScaleMode       =   3  'Pixel
  20.       ScaleWidth      =   87
  21.       TabIndex        =   2
  22.       Top             =   1920
  23.       Width           =   1335
  24.    End
  25.    Begin PictureClip gradb 
  26.       Cols            =   20
  27.       Location        =   "7185,990,120,240"
  28.       Picture         =   GRADTEST.FRX:0000
  29.    End
  30.    Begin TextBox Text1 
  31.       Height          =   285
  32.       Left            =   3720
  33.       TabIndex        =   3
  34.       Text            =   "Text1"
  35.       Top             =   1440
  36.       Width           =   1095
  37.    End
  38.    Begin Timer Timer1 
  39.       Interval        =   10
  40.       Left            =   720
  41.       Top             =   3240
  42.    End
  43.    Begin CommandButton Command2 
  44.       Caption         =   "End"
  45.       Height          =   375
  46.       Left            =   6240
  47.       TabIndex        =   1
  48.       Top             =   3240
  49.       Width           =   1215
  50.    End
  51.    Begin CommandButton Command1 
  52.       Caption         =   "Start"
  53.       Height          =   375
  54.       Left            =   6240
  55.       TabIndex        =   0
  56.       Top             =   2760
  57.       Width           =   1215
  58.    End
  59. End
  60. Dim n1 As Integer
  61. Dim n2 As Integer
  62.  
  63. Sub Command1_Click ()
  64. Timer1.Enabled = -1
  65. End Sub
  66.  
  67. Sub Command2_Click ()
  68. End
  69. End Sub
  70.  
  71. Sub Form_Load ()
  72. Text1.Text = ""
  73. Gradb.ClipY = 0
  74. Gradb.ClipWidth = 88
  75. Gradb.ClipHeight = 56
  76. Timer1.Enabled = 0
  77. End Sub
  78.  
  79. Sub Timer1_Timer ()
  80. Dim j As Integer
  81. Text1.Text = Time
  82. If n1 > 782 Then n1 = 0
  83. n2 = n1
  84. If n1 > 391 Then
  85.     n2 = 782 - n1
  86. End If
  87. Gradb.ClipX = n2
  88. Picture3.Picture = Gradb.Clip
  89. n1 = n1 + 1
  90. End Sub
  91.  
  92.